<:#240,9025><:f200,2Times New Roman,>END DIALOG<:f>
<:f200,2Times New Roman,><:p<* >>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when opening an existing HTML document<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************
<:#240,9025><:f200,2Times New Roman,>FUNCTION InitHTML()
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>NumGlobs = GetGlobalVarCount()
<:#240,9025><:f200,2Times New Roman,>IF NumGlobs<;>0
<:#240,9025><:f200,2Times New Roman,> DIM TempArray(Numglobs)
<:#240,9025><:f200,2Times New Roman,> GetGlobalVarNames(&TempArray)
<:#240,9025><:f200,2Times New Roman,> Active=0
<:#240,9025><:f200,2Times New Roman,> FOR i = 1 to NumGlobs
<:#240,9025><:f200,2Times New Roman,> IF TempArray(i)="HTMLActive" Active=1
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,> NEXT
<:#240,9025><:f200,2Times New Roman,> IF Active=1
<:#240,9025><:f200,2Times New Roman,> N=GetGlobalVar$("HTMLDocs")
<:#240,9025><:f200,2Times New Roman,> N=N+1
<:#240,9025><:f200,2Times New Roman,> SetGlobalVar("HTMLDocs", N)
<:#240,9025><:f200,2Times New Roman,> EXIT FUNCTION
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLDir",1)<:f>
<:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLActive", 1)
<:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLDocs", 1)
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLDocs", 1)
<:#240,9025><:f200,2Times New Roman,>CALL InitHREFTable()
<:#240,9025><:f200,2Times New Roman,>CALL InitImageTable()<:f>
<:#240,9025><:f200,2Times New Roman,>CALL InitHotKeys()
<:#240,9025><:f200,2Times New Roman,>CALL InitMenus()
<:#240,9025><:f200,2Times New Roman,>TEMP$= GetProfileString$("HTML", "HTMLDir", "AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>IF TEMP$=""
<:#240,9025><:f200,2Times New Roman,> TEMP$=GetDocPath$()
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLDir",TEMP$)
<:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ConvertDialog")<:f>
<:#240,9025><:f200,2Times New Roman,>CALL AddVariable("HTMLNetScape")
<:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>BRClear")<:f>
<:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRThick")<:f>
<:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRAlign")<:f>
<:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRWidth")<:f>
<:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRShade")<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION AddVariable(Name)
<:#240,9025><:f200,2Times New Roman,>AllocGlobalVar(Name,1)
<:#240,9025><:f200,2Times New Roman,>TEMP$= GetProfileString$("HTML", Name, "AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar(Name,TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION InitHREFTable()
<:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("PastURLs",10)
<:#240,9025><:f200,2Times New Roman,>I= 1
<:#240,9025><:f200,2Times New Roman,>Continue=1
<:#240,9025><:f200,2Times New Roman,>WHILE (Continue=1)
<:#240,9025><:f200,2Times New Roman,> Name$="URL{I}"
<:#240,9025><:f200,2Times New Roman,> URL= GetProfileString$("HTML", Name$, "AMIPRO.INI")
<:#240,9025><:f200,2Times New Roman,> IF URL="" SetGlobalArray("PastURLs",I,"")
<:#240,9025><:f200,2Times New Roman,> ELSE SetGlobalArray("PastURLs",I,URL)
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,> I=I+1
<:#240,9025><:f200,2Times New Roman,> IF I<;>10 Continue=0
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,>WEND
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>end function<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION InitImageTable()
<:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("PastImages",10)
<:#240,9025><:f200,2Times New Roman,>I= 1
<:#240,9025><:f200,2Times New Roman,>Continue=1
<:#240,9025><:f200,2Times New Roman,>WHILE (Continue=1)
<:#240,9025><:f200,2Times New Roman,> Name$="IMAGE{I}"
<:#240,9025><:f200,2Times New Roman,> URL= GetProfileString$("HTML", Name$, "AMIPRO.INI")
<:#240,9025><:f200,2Times New Roman,> IF URL="" SetGlobalArray("PastImages",I,"")
<:#240,9025><:f200,2Times New Roman,> ELSE SetGlobalArray("PastImages",I,URL)
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,> I=I+1
<:#240,9025><:f200,2Times New Roman,> IF I<;>10 Continue=0
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,>WEND
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>end function<:f>
<:f200,2Times New Roman,><:p<* >>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Functions to set up Hotkeys and menus<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION InitHotKeys()
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$()
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddHREF"<:f>
<:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifth], "", Macro)
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddName"<:f>
<:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftn], "", Macro)
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddImage"<:f>
<:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifti], "", Macro)
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAddress"<:f>
<:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifta], "", Macro)<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddRule"<:f>
<:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftr], "", Macro)<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddBreak"<:f>
<:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftb], "", Macro)<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ConvertFile"<:f>
<:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftc], "", Macro)<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAuthor"<:f>
<:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifta], "", Macro)<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Options"<:f>
<:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifto], "", Macro)<:f>
<:f200,2Times New Roman,>'Macro="{MacFile}!TestDoc"<:f>
<:f200,2Times New Roman,>'OnKey(<[>ctrlshiftt], "", Macro)<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION InitMenus()
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$()
<:#240,9025><:f200,2Times New Roman,>InsertMenu(1, 3, "HTM&L")
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Elements")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ParaStyle"<:f>
<:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Paragraph Style<:f><:f200,2Times New Roman,>", Macro, "Select Paragraph Style")<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Text Styles")<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Text Effects")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ConvertFile"<:f>
<:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Convert File ^ + SHIFT C<:f><:f200,2Times New Roman,>", Macro, "Convert file<:f><:f200,2Times New Roman,> to HTML<:f><:f200,2Times New Roman,>")<:f>
<:f200,2Times New Roman,>'Macro="{MacFile}!TestDoc"<:f>
<:f200,2Times New Roman,>'AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Test File
^ + SHIFT T<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Test HTML file with browser<:f><:f200,2Times New Roman,>")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Options<:f><:f200,2Times New Roman,>"<:f>
<:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Set Options<:f><:f200,2Times New Roman,> ^ + SHIFT O<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Set Options<:f><:f200,2Times New Roman,>")<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddHREF"<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddName"<:f>
<:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements",
<:f><:f200,2Times New Roman,> "Add NAME Anchor<:f><:f200,2Times New Roman,> ^ + SHIFT N<:f><:f200,2Times New Roman,>", Macro, "Add NAME Anchor")
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddImage"<:f>
<:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements",
<:f><:f200,2Times New Roman,> "Add IMAGE <:f><:f200,2Times New Roman,>^ + SHIFT I<:f><:f200,2Times New Roman,>", Macro, "Add IMAGE")
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAddress"<:f>
<:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements",
<:f><:f200,2Times New Roman,> "Add ADDRESS <:f><:f200,2Times New Roman,>^ + SHIFT A<:f><:f200,2Times New Roman,>", Macro, "Add Address")
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddRule"<:f>
<:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements",
<:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add RULE
<:f><:f200,2Times New Roman,> ^ + SHIFT R<:f><:f200,2Times New Roman,>", Macro, "Add Horizontal Rule")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddBreak"<:f>
<:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements",
<:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add BREAK
<:f><:f200,2Times New Roman,> ^ + SHIFT B<:f><:f200,2Times New Roman,>", Macro, "Add Line Break")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddNOBR"<:f>
<:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements",
<:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add NOBR
<:f><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>", Macro, "Add No Break Tag")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddWBR"<:f>
<:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements",
<:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add WBR
<:f><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>", Macro, "Add Word Break Tag")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAuthor"<:f>
<:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements",
<:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Author ^ + SHIFT A<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Author to text<:f><:f200,2Times New Roman,>")<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(EM)"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Emphasis<:f><:f200,2Times New Roman,>", Macro, "Emphasis text style")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(STRONG)"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Strong<:f><:f200,2Times New Roman,>", Macro, "Strong text style")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(CODE)"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Code<:f><:f200,2Times New Roman,>", Macro, "Code listings style")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(SAMP)"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Sample<:f><:f200,2Times New Roman,>", Macro, "Sample text style")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(KBD)"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>KBD<:f><:f200,2Times New Roman,>", Macro, "Text typed by user")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(VAR)"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>VAR<:f><:f200,2Times New Roman,>", Macro, "A variable name")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(DFN)"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>DFN<:f><:f200,2Times New Roman,>", Macro, "The defining instance of a term")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(CITE)"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>CITE<:f><:f200,2Times New Roman,>", Macro, "A citation")<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects(""BOLD"")"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text <:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>", "<:f><:f200,2Times New Roman,>BOLD<:f><:f200,2Times New Roman,>", Macro, "Bold text")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects(""ITALIC"")"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text <:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>", "<:f><:f200,2Times New Roman,>ITALIC<:f><:f200,2Times New Roman,>", Macro, "Italic text")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Text<:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>(""PITCH"")"<:f>
<:#480,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Effects", "<:f><:f200,2Times New Roman,>Toggle Pitch
<:f><:f200,2Times New Roman,>", Macro, "Toggle between fixed and variable pitch")<:f>
<:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects<:f><:f200,2Times New Roman,>(""BLINK"")"<:f>
<:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Effects", "<:f><:f200,2Times New Roman,>BLINK<:f><:f200,2Times New Roman,>", Macro, "Blinking text")<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:f200,2Times New Roman,><:p<* >>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when closing an HTML document<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Function CloseHTML()
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>NumGlobs = GetGlobalVarCount()
<:#240,9025><:f200,2Times New Roman,>IF NumGlobs=0 EXIT FUNCTION
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>DIM TempArray(Numglobs)
<:#240,9025><:f200,2Times New Roman,>GetGlobalVarNames(&TempArray)
<:#240,9025><:f200,2Times New Roman,>Active=0
<:#240,9025><:f200,2Times New Roman,>FOR i = 1 to NumGlobs
<:#240,9025><:f200,2Times New Roman,> IF TempArray(i)="HTMLActive" Active=1
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,>NEXT
<:#240,9025><:f200,2Times New Roman,>IF Active=1
<:#240,9025><:f200,2Times New Roman,> N=GetGlobalVar$("HTMLDocs")
<:#240,9025><:f200,2Times New Roman,> IF N<;>1
<:#240,9025><:f200,2Times New Roman,> N=N - 1
<:#240,9025><:f200,2Times New Roman,> SetGlobalVar("HTMLDocs", N)
<:#240,9025><:f200,2Times New Roman,> EXIT FUNCTION
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,> CALL WriteHREF()<:f>
<:#240,9025><:f200,2Times New Roman,> CALL WriteIMAGES()<:f>
<:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HTMLDir")
<:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>WriteProfileString("HTML", "HTMLDir" ,TEMP$, "AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HTMLNetScape")
<:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>WriteProfileString("HTML", "HTMLNetScape" ,TEMP$, "AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("HTMLDocs")
<:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("HTMLActive")
<:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("PastURLs")<:f>
<:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("PastImages")<:f>
<:#240,9025><:f200,2Times New Roman,> FreeGlobalVar("HTMLDir")
<:#240,9025><:f200,2Times New Roman,> CALL DelVariable("HTMLNetScape")
<:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>ConvertDialog")<:f>
<:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>BRClear")<:f>
<:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRThick")<:f>
<:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRAlign")<:f>
<:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRWidth")<:f>
<:#240,9025><:f200,2Times New Roman,> CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRShade")<:f>
<:#240,9025><:f200,2Times New Roman,> DeleteMenu(1, "HTM&L")
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION DelVariable(Name)
<:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$(Name)
<:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>WriteProfileString("HTML", Name ,TEMP$, "AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,> FreeGlobalVar(Name)<:f>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Function WriteHREF()
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>for I=1 To 10
<:#240,9025><:f200,2Times New Roman,> URL$=GetGlobalArray$("PastURLs", I)
<:#240,9025><:f200,2Times New Roman,> WriteProfileString("HTML", "URL{I}" ,URL$, "AMIPRO.INI")
<:#240,9025><:f200,2Times New Roman,>Next
<:#240,9025><:f200,2Times New Roman,>End Function
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Function WriteIMAGES()
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>for I=1 To 10
<:#240,9025><:f200,2Times New Roman,> IMAGE$=GetGlobalArray$("PastImages", I)
<:#240,9025><:f200,2Times New Roman,> WriteProfileString("HTML", "IMAGE{I}" ,IMAGE$, "AMIPRO.INI")
<:#240,9025><:f200,2Times New Roman,>Next
<:#240,9025><:f200,2Times New Roman,>End Function<:f>
<:f200,2Times New Roman,><:p<* >>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a HREF anchor<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION AddHREF()
<:#240,9025><:f200,2Times New Roman,>DIM Previous(10)
<:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
<:#240,9025><:f200,2Times New Roman,>for I=1 to 10
<:#240,9025><:f200,2Times New Roman,> Previous(I) = GetGlobalArray$("PastURLs",I)
<:#240,9025><:f200,2Times New Roman,> if Previous(I)<<<;>"" FillEdit(9000, Previous(I))
<:#240,9025><:f200,2Times New Roman,> endif
<:#240,9025><:f200,2Times New Roman,>next
<:#240,9025><:f200,2Times New Roman,>FillEdit(8000,Previous(1))
<:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDHREF")
<:#240,9025><:f200,2Times New Roman,> if box <<<;>1
<:#240,9025><:f200,2Times New Roman,> Exit Function
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>Text=CurShade$()
<:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut()
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>URL$=GetDialogField$(8000)
<:#240,9025><:f200,2Times New Roman,>Field="<<A HREF=""{URL$}""<;>"
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
<:#240,9025><:f200,2Times New Roman,>Type(Field)
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
<:#240,9025><:f200,2Times New Roman,>Type(Text)
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
<:#240,9025><:f200,2Times New Roman,>Type("<</A<;>")
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Match=0
<:#240,9025><:f200,2Times New Roman,>for I=1 to 10
<:#240,9025><:f200,2Times New Roman,> if Previous(I)=URL$ Match=1
<:#240,9025><:f200,2Times New Roman,> endif
<:#240,9025><:f200,2Times New Roman,>next
<:#240,9025><:f200,2Times New Roman,>if Match=0
<:#240,9025><:f200,2Times New Roman,> for I=10 to 2 step -1
<:#240,9025><:f200,2Times New Roman,> N=I - 1
<:#240,9025><:f200,2Times New Roman,> SetGlobalArray("PastURLs", I, Previous(N))
<:#240,9025><:f200,2Times New Roman,> next
<:#240,9025><:f200,2Times New Roman,> SetGlobalArray("PastURLs", 1, URL$)
<:#240,9025><:f200,2Times New Roman,>endif
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>end function
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>DIALOG ADDHREF
<:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add your Name and Email<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>FUNCTION AddAuthor()
<:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)<:f>
<:#240,9025><:f200,2Times New Roman,>UserName=Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserName","AMIPRO.INI")
<:#240,9025><:f200,2Times New Roman,>FillEdit(8000,UserName)
<:#240,9025><:f200,2Times New Roman,>UserEmail=<:f><:f200,2Times New Roman,>Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserEmail","AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>FillEdit(8001,UserEmail)<:f>
<:#240,9025><:f200,2Times New Roman,>UserHome=<:f><:f200,2Times New Roman,>Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserHome","AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>FillEdit(8002,UserHome)<:f>
<:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDAUTHOR")
<:#240,9025><:f200,2Times New Roman,>IF box <<<;>1
<:#240,9025><:f200,2Times New Roman,> Exit Function
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>UserName=GetDialogField$(8000)<:f>
<:#240,9025><:f200,2Times New Roman,>UserEmail=GetDialogField$(8001)<:f>
<:#240,9025><:f200,2Times New Roman,>UserHome=GetDialogField$(8002)<:f>
<:#240,9025><:f200,2Times New Roman,>Field="<:f><:f200,2Times New Roman,><<HR<;><[>Enter]<:f><:f200,2Times New Roman,><<A HREF=""{UserHome}""<;>"
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
<:#240,9025><:f200,2Times New Roman,>Type(Field)
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
<:#240,9025><:f200,2Times New Roman,>Type(UserName)
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
<:#240,9025><:f200,2Times New Roman,>Type("<:f><:f200,2Times New Roman,><</A<;>,<<ADDRESS<;>")
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
<:#240,9025><:f200,2Times New Roman,>Type(UserEmail)
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
<:#240,9025><:f200,2Times New Roman,>Type("<</ADDRESS<;>")<:f>
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
<:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserName","{UserName}","AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserEmail","{UserEmail}","AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserHome","{UserHome}","AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
<:#278,9025>
<:#240,9025><:f200,2Times New Roman,>DIALOG ADDAUTHOR
<:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a Tag<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>FUNCTION AddTag(TagName)<:f>
<:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
<:#240,9025><:f200,2Times New Roman,>Field="{TagName}<:f><:f200,2Times New Roman,>"
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
<:#240,9025><:f200,2Times New Roman,>Type(Field)
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,255,0,0>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a Horizontal Rule<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>FUNCTION AddRule()<:f>
<:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape")
<:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f>
<:#240,9025><:f200,2Times New Roman,> Extra$=""
<:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HRThick")
<:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} SIZE=""{TEMP$}"""
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HRWidth")
<:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} WIDTH=""{TEMP$}"""
<:#240,9025><:f200,2Times New Roman,> ENDIF<:f>
<:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("HRAlign")
<:#240,9025><:f200,2Times New Roman,> IF TEMP$<<<;>"" Extra$="{Extra$} ALIGN=""{TEMP$}"""
<:#240,9025><:f200,2Times New Roman,> ENDIF<:f>
<:#240,9025><:f200,2Times New Roman,> NoShade=GetGlobalVar$("HRShade")
<:#240,9025><:f200,2Times New Roman,> IF NoShade=1 Extra$="{Extra$} NOSHADE"
<:#240,9025><:f200,2Times New Roman,> ENDIF<:f>
<:#240,9025><:f200,2Times New Roman,> AddTag("<<HR{Extra$}<;><[>Enter]")
<:#240,9025><:f200,2Times New Roman,>ELSE
<:#240,9025><:f200,2Times New Roman,> AddTag("<<HR<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f>
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:#278,9025>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a line break<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>FUNCTION AddBreak()<:f>
<:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape")
<:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f>
<:#240,9025><:f200,2Times New Roman,> Extra$=""
<:#240,9025><:f200,2Times New Roman,> TEMP$=GetGlobalVar$("BRClear")
<:#240,9025><:f200,2Times New Roman,> IF (TEMP$<<<;>"<<NULL<;>")AND(<:f><:f200,2Times New Roman,>TEMP$<<<;>"")<:f><:f200,2Times New Roman,> Extra$="{Extra$} CLEAR=""{TEMP$}"""
<:#240,9025><:f200,2Times New Roman,> ENDIF<:f>
<:#240,9025><:f200,2Times New Roman,> AddTag("<<BR{Extra$}<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f>
<:#240,9025><:f200,2Times New Roman,>ELSE
<:#240,9025><:f200,2Times New Roman,> AddTag("<<BR<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f>
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:#278,9025>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a no break<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>FUNCTION AddNOBR()<:f>
<:f200,2Times New Roman,>CALL TextStyle<:f200,2Times New Roman,255,0,0><:f200,2Times New Roman,0,0,0><:f200,2Times New Roman,255,0,0><:f200,2Times New Roman,0,0,0><:f200,2Times New Roman,255,0,0><:f200,2Times New Roman,0,0,0><:f200,2Times New Roman,255,0,0>
<:f200,2Times New Roman,>("NOBR<:f><:f200,2Times New Roman,0,0,0><:f200,2Times New Roman,255,0,0><:f200,2Times New Roman,0,0,0><:f200,2Times New Roman,255,0,0><:f200,2Times New Roman,><:f><:f200,2Times New Roman,>")<:f>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:#278,9025>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a word break<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION AddWBR()<:f>
<:#240,9025><:f200,2Times New Roman,>AddTag("<<WBR<;><:f><:f200,2Times New Roman,>")<:f>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:p<* >>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Toggle between fixed to variable pitch text<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION TextEffects( Effect )<:f>
<:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Effect=lcase$(Effect)
<:#240,9025><:f200,2Times New Roman,>SWITCH Effect
<:#240,9025><:f200,2Times New Roman,> CASE "bold"
<:#240,9025><:f200,2Times New Roman,> Bo<:f200,2Times New Roman,>ld()
<:#240,9025><:f200,2Times New Roman,> CASE "italic"
<:#240,9025><:f200,2Times New Roman,> Italic()
<:#240,9025><:f200,2Times New Roman,> CASE "pitch"
<:#240,9025><:f200,2Times New Roman,> GetCurFontInfo(&Name,&Color,&Size,&Family)<:f>
<:#240,9025><:f200,2Times New Roman,> IF Name="Times New Roman" Name="Courier New"
<:#240,9025><:f200,2Times New Roman,> ELSE <:f><:f200,2Times New Roman,> Name="Times New Roman"
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,> FontChange(Name, Family, Color, Size)<:f>
<:#240,9025><:f200,2Times New Roman,> CASE "blink"
<:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,> CALL TextStyle("BLINK")<:f>
<:#240,9025><:f200,2Times New Roman,>ENDSWITCH
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,255,0,0>
<:#240,9025><:f200,2Times New Roman,255,0,0>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Insert text styles<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>FUNCTION TextStyle( Style)<:f>
<:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)<:f>
<:#240,9025><:f200,2Times New Roman,>Text=CurShade$()
<:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut()
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
<:#240,9025><:f200,2Times New Roman,>Type("<<{Style}<;>")
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
<:#240,9025><:f200,2Times New Roman,>Type(Text)
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
<:#240,9025><:f200,2Times New Roman,>Type("<</{Style}<;>")<:f>
<:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>END FUNCTION
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Change paragraph style<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>FUNCTION ParaStyle()
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>SelectStyle
<:#240,9025><:f200,2Times New Roman,>
<:f200,2Times New Roman,>END FUNCTION<:p<* >><:f><:f200,2Times New Roman,255,0,0>'Set Options<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>FUNCTION Options()
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Options=0
<:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"LEFT<:f><:f200,2Times New Roman,>")
<:f200,2Times New Roman,255,0,0> 'Fill Alignment List<:f>
<:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"RIGHT<:f><:f200,2Times New Roman,>")
<:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"CENTER<:f><:f200,2Times New Roman,>")
<:#240,9025><:f200,2Times New Roman,>FillEdit(9501,"<<NULL<;>")<:f><:f200,2Times New Roman,> <:f200,2Times New Roman,255,0,0>'Fill Clear List<:f>
<:#240,9025><:f200,2Times New Roman,>FillEdit(9501,"ALL")<:f>
<:#240,9025><:f200,2Times New Roman,>FillEdit(9501,"RIGHT<:f><:f200,2Times New Roman,>")
<:#240,9025><:f200,2Times New Roman,>FillEdit(9501,"LEFT")<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HTMLNetScape")
<:#240,9025><:f200,2Times New Roman,>FillEdit(23,TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRShade")
<:#240,9025><:f200,2Times New Roman,>FillEdit(25,TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>'TEMP$=GetProfileString$(<:f><:f200,2Times New Roman,>"HTML", "HTMLBrowser", "AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>'FillEdit(8000,TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRThick")
<:#240,9025><:f200,2Times New Roman,>FillEdit(8001,TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRWidth")
<:#240,9025><:f200,2Times New Roman,>FillEdit(8002,TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("ConvertDialog")
<:#240,9025><:f200,2Times New Roman,>FillEdit(20,TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "OPTIONS")<:f>
<:#240,9025><:f200,2Times New Roman,>IF box<<<;>1
<:#240,9025><:f200,2Times New Roman,> EXIT FUNCTION
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(9500)
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRAlign",TEMP$)
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(9501)
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar("BRClear",TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>'TEMP$=GetDialogField$(8000)
<:#240,9025><:f200,2Times New Roman,>'WriteProfileString("HTML","HTMLBrowser",TEMP$,"AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(8001)
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRThick",TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(8002)
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRWidth",TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(25)
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRShade",TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(23)
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLNetScape",TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(20)
<:#240,9025><:f200,2Times New Roman,>SetGlobalVar("ConvertDialog",TEMP$)<:f>
<:#240,9025><:f200,2Times New Roman,255,0,0>'Run browser using this file<:f>
<:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
<:#240,9025><:f200,2Times New Roman,>FUNCTION TestDoc()
<:#240,9025><:f200,2Times New Roman,>
<:#240,9025><:f200,2Times New Roman,>Browser$= GetProfileString$("HTML", "HTMLBrowser", "AMIPRO.INI")
<:#240,9025><:f200,2Times New Roman,>WHILE (Browser$="" )
<:#240,9025><:f200,2Times New Roman,> Message("You need to setup a web browser under Options","Test Document")
<:#240,9025><:f200,2Times New Roman,> IF CALL Options() <<<;> 1 <:f>
<:#240,9025><:f200,2Times New Roman,> EXIT FUNCTION
<:#240,9025><:f200,2Times New Roman,> ENDIF
<:#240,9025><:f200,2Times New Roman,> <:f><:f200,2Times New Roman,>Browser$= GetProfileString$("HTML", "HTMLBrowser", "AMIPRO.INI")<:f>
<:#240,9025><:f200,2Times New Roman,>WEND
<:#240,9025><:f200,2Times New Roman,0,0,0>Name$=GetDocVar("DestName")<:f>
<:#240,9025><:f200,2Times New Roman,0,0,0>DestDir$=GetDocVar("Destination")<:f>
<:#240,9025><:f200,2Times New Roman,0,0,0>IF Name$="" OR DestDir$=""
<:#240,9025><:f200,2Times New Roman,0,0,0> IF CALL ConvertFile() <<<;> 1
<:#240,9025><:f200,2Times New Roman,0,0,0> EXIT FUNCTION
<:#240,9025><:f200,2Times New Roman,0,0,0> ENDIF
<:#240,9025><:f200,2Times New Roman,0,0,0> Name$=GetDocVar("DestName")<:f>
<:#240,9025><:f200,2Times New Roman,0,0,0> DestDir$=GetDocVar("Destination")<:f>
<:#240,9025><:f200,2Times New Roman,>ENDIF
<:#240,9025><:f200,2Times New Roman,0,0,0> Message("Blah <:f><:f200,2Times New Roman,>{Browser$}{DestDir$}{Name$}<:f><:f200,2Times New Roman,0,0,0>")<:f>
<:#240,9025><:f200,2Times New Roman,>Exec("{Browser$}","{DestDir$}{Name$}",1)
<:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
>
[Embedded]
00071313
>
[macsum] 37
CreateHTML 0 0 8 2
ADDTITLE 541 0 -1 28
InitHTML 811 0 7 38
AddVariable 1638 1 2 79
InitHREFTable 1742 0 5 87
InitImageTable 2074 0 5 109
InitHotKeys 2415 0 3 129
InitMenus 2884 0 3 158
CloseHTML 5382 0 7 224
DelVariable 6276 1 2 265
WriteHREF 6378 0 3 274
WriteIMAGES 6578 0 3 284
AddHREF 6784 0 13 295
ADDHREF 7775 0 -1 339
AddAuthor 8071 0 10 350
ADDAUTHOR 8873 0 -1 386
AddName 9338 0 9 399
ADDNAME 9712 0 -1 423
IconTextStyle 9961 0 3 432
TextTypes 10545 0 -1 460
AddAddress 11605 0 7 485
AddImage 11891 0 19 507
ADDIMAGE1 13729 0 -1 585
ADDIMAGE2 14343 0 -1 599
AddTag 15430 1 6 624
AddRule 15559 0 5 637
AddBreak 16044 0 4 662
AddNOBR 16315 0 1 678
AddWBR 16360 0 1 686
TextEffects 16403 1 5 694
TextStyle 16829 1 6 718
ParaStyle 17092 0 1 738
Options 17126 0 3 744
OPTIONS 17898 0 -1 794
ConvertFile 18740 0 11 815
CONVERTFILE 19990 0 -1 874
TestDoc 20372 0 4 885
[macse]
14 CreateHTML
0 802
13
8 1
5 0
8 2
0 14 "{1}"
13
8 3
5 1
6 3
18 4
12 00000138
10 00000232
5 -1
6 3
3 0
8 3
10 00000062
0 15 "{1}" "{3}" 1
13
7 "\"
18 0
6 2
5 0
18 0
1 1
11 00000219
6 3
8 2
10 00000104
6 2
5 0
18 1
11 00000323
0 14 "{1}"
13
6 2
3 1
0 807 "{1}" [X]
13
8 4
6 4
8 1
7 "{1}!InitHTML"
8 5
2 463 1 "{1}!InitHTML" "{1}!CloseHTML" 6
16 "{5}"
0 26 "." "ADDTITLE"
13
8 6
6 6
5 1
18 1
11 00000469
6 0
15
9
0 27 8000
13
8 7
2 377 1 1
0 6 "[9]{7}"
0 6 "[16420]"
6 0
15
9
DIALOG ADDTITLE
-2134900736 4 78 55 160 90 "" "" "Document Title"
15 18 127 12 8000 1350631552 "edit" "" 0
15 8 82 10 1000 1342177280 "static" "Enter Title of Document:" 0